home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / hf.dir / 00080_Choise List.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  916 b   |  32 lines
  1. global gHFChoiseLastLine
  2.  
  3. on mouseDown
  4.   if the doubleClick and (the mouseLine <> -1) then
  5.     dontPassEvent()
  6.     exit
  7.   end if
  8.   put the mouseLine && the number of lines in field "Choise List"
  9.   if the mouseLine >= the number of lines in field "Choise List" then
  10.     dontPassEvent()
  11.     exit
  12.   end if
  13.   set gHFChoiseLastLine to -1
  14.   set mLine to the mouseLine
  15.   if mLine = -1 then
  16.     exit
  17.   else
  18.     set executeOnce to 0
  19.     repeat while the stillDown or (executeOnce = 0)
  20.       set mLine to the mouseLine
  21.       if (mLine <> gHFChoiseLastLine) and (mLine <> -1) then
  22.         set the foreColor of line gHFChoiseLastLine of field "Choise List" to 255
  23.         set the foreColor of line mLine of field "Choise List" to 251
  24.         set gHFChoiseLastLine to mLine
  25.         set executeOnce to 1
  26.       end if
  27.     end repeat
  28.   end if
  29.   set vText to line gHFChoiseLastLine of field "Choise List"
  30.   addDelCategory(vText)
  31. end
  32.